PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F ILE**1D**PASODD 


PPPPPPPP 
PPPPPPPP 
P PP 


P PP 
PPPPPPPP 
PPPPPPPP 


LELLLLLLLL 
ELLELLLLLLL 


AAAARA 
A 


> 


AL 
AAAAAAAAAA 
Snes 


SSSSSS 


000000 
000000 


0 
000000 


000000 


DDDDDDDD 
DDDDDDDD 


DDDDDDDD 
DDDDDDDD 


DDDDAODD 

DDDDDDDD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD - 
DD DD eece 
DDDDDDDD eee 
DDDDDDDD sees 


D 10 
- Return True if Argument Odd 16-SEP-1984 01:26:14 VAX/VMS Macro v04-00 Page 0. 


PASSODD 
Table of contents 


(¢ 38 DECLARATIONS 
(3) 7 PASSODD = Return True if Value Udd 


E 10 
PASSODD - Return True if Argument Odd 16-SEP-1984 01: 363) 14 VAX/VMS Macro V04-00 Page 1 P 
1-001 66-SEP-1984 11:51:49 CPASRTIL.SRC RCIP ASODD.MAR; 1 (1) 
-TITLE PASS$ODD = Return True if Ar reynen t Odd 
-IDENT /1-001/ ; le: PASODD. MAR Edit: SBL1001 


MASBBARARABASAAAAAAARLARAAASARSEAAS ESSA RRERARA SARE REAR RARER RRR RRR R RRR A RASA SESS SO I | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® & 
*® ® 
*?® & 
** ® 
i* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
vs N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
°@ ” 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:*® CORPORATION. : 
** * 
*®* * 
*?* ® 
*® ® 
** * 
** ® 


0000 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
4444 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
8000 ToT ITT TIT T Iti tiie i titi iii iii iii titi titi titi ti iiiiiiiiiiiiiiiiiiiiii ity, 
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+ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains PAS$ODD, which returns 1 if the argument 
is odd, 0 otherwise. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 6-Nov~-1980 
MODIFIED BY: 

1-001 - Original. SBL 6-Nov-1980 
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1-001 DECLARATIONS ° ae et 98:15 LPASRIL. SREJPASODD MAR; 1 ° (3) 1 
00 4 -SBTTL DECLARATIONS 
$309 23 : 
44 48 ; LIBRARY MACRO CALLS: 
000 49 ; 
0000 50 ; NONE 
0000 51; 
4 26 ; EXTERNAL DECLARATIONS: 
0000 54 -DSABL GBL ; Force all external symbols to be declared 
0000 55; NONE 
0000 56 ; 
44 57 ; MACROS: 
000 58 ; 
0000 59 ; NONE 
0000 60 ; 
0000 61 ; EQUATED SYMBOLS: 
0000 6¢ 3 
0000 63 ; NONE 
0000 64 ; 
0000 65 ; OWN STORAGE: 
0000 66 ; | 
0000 67 ; NONE 
0000 68 ; 
444 +4 ; PSECT DECLARATIONS: 
00000000 71 -PSECT _PASSCODE PIC, USR, CON, REL, LCL, SHR, - 
3008 ie EXE, RD, NOWRT, LONG | 
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‘ -SBTTL PASSODD - Return True if Value Odd 
FUNCTIONAL DESCRIPTION: 


“ 


This routine returns 
odd, a BOOLEAN FALSE 


; CALLING SEQUENCE: 
Result.wv.v = PASSODD (Long.rl.r) 
; FORMAL PARAMETERS: 


’ POOL EAN TRUE (1) if its argument is 
i 


0 it is even. 


Long - Signed longword argument 
IMPLICIT INPUTS: 
; NONE 
; IMPLICIT OUTPUTS: 
: wane 
ROUTINE VALUE: 


1 if argument odd 
0 if argument even 


SIDE EFFECTS: 
NONE 


0000 -ENTRY PAS$ODD, “M<> ; Entry point 


+ 

Note: this routine is not the same as PASSCONVERT_BOOL_L because that 
routine’s argument is a single bit. and must be accessed only as a byte. 
PASSODD takes a longword, so we must do a longword access. 


p94 pt a ho ah ttt + $+ + 4 4 4 4 $6 4 $4 4 4 + bo 6 OO 8 oO 4 Oo 8 eo oe ond 
SOOSDNNMNMNMNNNVOOCOCOOCOOCOCOCOCCSOCOCCOCOCOOCOOCOOCOOOOCOOOoO 


50 04 BC” FFFFFFFE 8F fe BicLs #°XFFFFFFFE, @4(AP), RO ; Determine resuit 


CDOCSCDDOOOCODOSDODDODDDDDDDODOCODODODDODDOCODODODOOCODOOOOOOOO Oc 
SOOCOCSCOCOCOOOSOOOSOSOSOSOSOSOSOSOSOOSOSOSOOOOOOOOOOOOSOOOOCOSOOCOSOO 95 
MRA PH HF HK FOOD ODOOOCOCOCOC OOO OOOO OOO DWWOOWOMOMOMMOO VN 
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END ; End of module PASS$ODD 
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Symbol table 6-SEP=1984 11:31:49 CPASRTL.SRCJPASODD.MAR; 1 (3) 
| PASSODD 00000000 RG-~—s«O1 

$eer meee ece enaecoose ¢ 

: Psect synopsis ! 

terme oe Serena nwa = + 
PSECT name Allocation PSECT No. Attributes 
- <ABS.. 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
~PASSCODE 0000000c -¢ = «12.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

$e ee meen mene ene ence ecco ece + 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 10 00: 00:00 .08 00:00:01.29 
Command processing 74 bs SS 00:00:04.83 
Pass 63 00:00:00.36 00:00:03.67 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 37 00:00:00.24 00:00:01.45 
Symbol table output 2 00:00:00.02 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.61 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 189 00:00:01.38 00:00:11.87 


The working set Limit was 750 pages. ? 

1086 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
120 source Lines were read in Pass 1, producing 10 object records in Pass 2 

0 pages of virtual memory were used to define 0 macros. 


Geoceeceeoseoesooesoososcco$ 


! Macro library statistics ! 
$ eww www meee ew ee www ooo ennene © 


Macro library name Macros defined 
“$255$DUAZB:(SYSLIBISTARLET.MLB:20 0 ttt 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASODD/OBJ=OBJ$:PASODD MSRC$:PASODD/UPDATE=(ENH$:PASODD) 
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